allcheck
objects()
check.1
objects()
allcheck
allcheck(1)
allcheck(2)
allcheck
objects()
checj.1
check.1
allcheck(1)
allcheck.new(1)
allcheck(10)
allcheck.new(10)
objects()
check.1.king()
check.1.mccue()
allcheck.king(1)
allcheck.mccue(1)
allcheck.mccue(4)
run7
objects()
run1
allcheck.king(1,0.5,0.5,0.1,0.1,0)
allcheck.king(30,0.5,0.5,0.1,0.1,0)
run1
allcheck.king(30,0.5,0.5,0.01,0.01,0)
run1
run1.king <- allcheck.king(100,0.5,0.5,0.01,0.01,0)
run1.king-run1
run1.mccue <- allcheck.mccue(100,0.5,0.5,0.01,0.01,0)
run1-run1.mccue
run2.king <- allcheck.king(100,0.75,0.5,0.01,0.01,0)
run2.king -run2
run2.mccue <- allcheck.mccue(100,0.75,0.5,0.01,0.01,0)
run3.king <- allcheck.king(100,0.75,0.75,0.01,0.01,0)
run3.mccue <- allcheck.mccue(100,0.75,0.75,0.01,0.01,0)
run3.king <- allcheck.king(100,0.9,0.9,0.01,0.01,0)
objects()
run4.king <- run3.king
run3.king <- allcheck.king(100,0.75,0.75,0.01,0.01,0)
run4.mccue <- allcheck.king(100,0.9,0.9,0.01,0.01,0)
Getting ancillary parameter values... > run4.mccue-run4
run4.mccue -run4
run4.mccue -run4.king
run5.king <- allcheck.king(100,0.5,0.5,0.1024,0.01,0)
run5.mccue <- allcheck.mccue(100,0.5,0.5,0.1024,0.01,0)
run6.king <- allcheck.king(100,0.6,0.6,0.01,0.1024,0)
run6.mccue <- allcheck.mccue(100,0.6,0.6,0.01,0.1024,0)
run7.king <- allcheck.mccue(100,0.9,0.1,0.1024,0.1024,0)
run7.king <- allcheck.king(100,0.9,0.1,0.1024,0.1024,0)
run7.mccue <- allcheck.mccue(100,0.9,0.1,0.1024,0.1024,0)
run8.mccue <- allcheck.mccue(100,0.5,0.5,0.01,0.01,0.3)
run8.king <- allcheck.king(100,0.5,0.5,0.01,0.01,0.3)
run8-run8.king
objects()
rm (run1,run2,run3,run4,run5,run6,run7,run8)
objects()
run(run9)
rm(run9)
objects()
run7.king
objects()
objects()
rm (allcheck)
objects()
rm (check.1.new)
check.1.mccue()
check.1
rm (check.1)
objects()
allcheck.new
rm (allcheck.new)
objects()
run1.mccue <- allcheck.mccue(100,0.5,0.5,0.01,0.01,0)
run2.mccue <- allcheck.mccue(100,0.75,0.5,0.01,0.01,0)
run3.mccue <- allcheck.mccue(100,0.75,0.75,0.01,0.01,0)
rm (run1.mccue,run2.mccue,run3.mccue,run4.mccue,run5.mccue,run6.mccue,run7.mccue,run8.mccue)
run1.mccue <- allcheck.mccue(100,0.5,0.5,0.01,0.01,0)
run2.mccue <- allcheck.mccue(100,0.75,0.5,0.01,0.01,0)
run3.mccue <- allcheck.mccue(100,0.75,0.75,0.01,0.01,0)
run4.mccue <- allcheck.mccue(100,0.9,0.9,0.01,0.01,0)
run5.mccue <- allcheck.mccue(100,0.5,0.5,0.1024,0.01,0)
run6.mccue <- allcheck.mccue(100,0.6,0.6,0.01,0.1024,0)
run7.mccue <- allcheck.mccue(100,0.9,0.1,0.1024,0.1024,0)
run8.mccue <- allcheck.mccue(100,0.5,0.5,0.01,0.01,0.3)
objects()
run8.mccue
run8.mccue-run8.king
objects()
run1.king
check.1.noinfo()
check.1.noinfo.king()
beta.b.draws
error.beta.b.draws
lm(error.beta.b.draws~beta.b.draws)
check.1.noinfo.king()
objects()
run1.noinfo.king <- allcheck.noinfo.king(100,0.5,0.5,0.01,0.01,0)
run1.noinfo.king
run2.noinfo.king <- allcheck.noinfo.king(100,0.75,0.5,0.01,0.01,0)
objects()
run3.noinfo.king <- allcheck.noinfo.king(100,0.75,0.75,0.01,0.01,0)
run4.noinfo.king <- allcheck.noinfo.king(100,0.9,0.9,0.01,0.01,0)
run4.noinfo.king
run5.noinfo.king <- allcheck.noinfo.king(100,0.5,0.5,0.1024,0.01,0)
run6.noinfo.king <- allcheck.noinfo.king(100,0.6,0.6,0.01,0.1024,0)
run7.noinfo.king <- allcheck.noinfo.king(100,0.9,0.1,0.1024,0.1024,0)
run7.noinfo.king <- allcheck.noinfo.king(100,0.9,0.1,0.1024,0.1024,0)
run8.noinfo.king <- allcheck.noinfo.king(100,0.5,0.5,0.01,0.01,0.3)
run8.noinfo.king
allcheck.noinfo.king(times=1)
allcheck.noinfo.king(times=2)
run7.noinfo.king <- allcheck.noinfo.king(100,0.9,0.1,0.1024,0.1024,0)
check.1.noinfo.king(100,0.9,0.1,0.1024,0.1024,0)
check.1.noinfo.king(0.9,0.1,0.1024,0.1024,0)
run7.noinfo.king <- allcheck.noinfo.king(100,0.9,0.1,0.1024,0.1024,0)
run7.noinfo.king
run1.noinfo.xlow.king <- allcheck.noinfo.king(100,0.5,0.5,0.01,0.01,0)
run1.noinfo.xlow.king
run2.noinfo.xlow.king <- allcheck.noinfo.king(100,0.75,0.5,0.01,0.01,0)
run2.noinfo.xlow.king
run3.noinfo.xlow.king <- allcheck.noinfo.king(100,0.75,0.75,0.01,0.01,0)
run3.noinfo.xlow.king
run4.noinfo.xlow.king <- allcheck.noinfo.king(100,0.9,0.9,0.01,0.01,0)
run5.noinfo.xlow.king <- allcheck.noinfo.king(100,0.5,0.5,0.1024,0.01,0)
run6.noinfo.xlow.king <- allcheck.noinfo.king(100,0.6,0.6,0.01,0.1024,0)
run7.noinfo.xlow.king <- allcheck.noinfo.king(100,0.9,0.1,0.1024,0.1024,0)
run8.noinfo.xlow.king <- allcheck.noinfo.king(100,0.5,0.5,0.01,0.01,0.3)
run8.noinfo.xlow.king
run7.noinfo.xlow.king
run6.noinfo.xlow.king
run5.noinfo.xlow.king
run4.noinfo.xlow.king
run8.noinfo.xlow.king
run8.noinfo.xlow.king
run9.noinfo.xlow.king <- allcheck.noinfo.king(100,0.5,0.5,0.01,0.01,0.1)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.3)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.5)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.1)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.9)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.1)
run9.noinfo.xlow.king <- allcheck.noinfo.king(100,0.5,0.5,0.01,0.01,0.1)
run9.noinfo.xlow.king
run1.noinfo.xlow.king
run2.noinfo.xlow.king
run3.noinfo.xlow.king
run4.noinfo.xlow.king
run5.noinfo.xlow.king
run6.noinfo.xlow.king
run7.noinfo.xlow.king
run8.noinfo.xlow.king
run9.noinfo.xlow.king
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.1)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.3)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.9)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.2)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0.4)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.4)
run9.noinfo.xlow.king
run8.noinfo.xlow.king
objects()
rm (fixit)
run9.noinfo.xlow.king
check.1.noinfo.king(0.5,0.5,0.01,0.01,.4)
check.1.noinfo.king(0.5,0.5,0.01,0.01,-.4)
check.1.noinfo.king(0.5,0.5,0.01,0.01,-.8)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.8)
check.1.noinfo.king(0.5,0.5,0.01,0.01,-.8)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.8)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.5)
check.1.noinfo.king(0.5,0.5,0.01,0.01,-.5)
check.1.noinfo.king(0.5,0.5,0.01,0.01,-.5)
check.1.noinfo.king(0.5,0.5,0.01,0.01,-.2)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.2)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.8)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.2)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.4)
allcheck.noinfo.king(times=50)
check.1.noinfo.king(0.5,0.5,0.01,0.01,.6)
allcheck.noinfo.king(times=50)
check.1.noinfo.king(0.5,0.5,0.01,0.01,0)
check.1.king(0.5,0.5,0.01,0.01,0)
keep <- check.1.king(0.5,0.5,0.01,0.01,0)
plot (keep[,1],keep[,2])
keep <- check.1.king(0.5,0.5,0.01,0.01,0)
plot (keep[,1],keep[,2],xlim=c(0,2),ylim=c(0,2))
postscript(file="misread.ps")
plot (keep[,1],keep[,2],xlim=c(0,2),ylim=c(0,2))
dev.off()
postscript(file="misread.ps")
plot (keep[,1],keep[,2],xlim=c(-2,2),ylim=c(-2,2))
dev.off()
misread()
q()
objects()
q()
